The aim of this report is to investigate any effects of self-quarantines due to COVID-19 on people’s hobbies. We have observed that, though not significant, people dropped few of their hobbies when their quarantine was over. We also investigated the relation between how many hobbies people picked up and how reliant they were to their hobbies as a coping mechanism. However we concluded that they were not related, due to low correlation values
A primary, statistical, online survey was conducted where suitable questions for the research were asked. Although this allows for a large amount of information to be collected with minimal effort and cost, some limitations followed in with the advantages. Firstly, since the survey was voluntary, a voluntary response bias and a lack of random sampling had occurred which could lead to distorted results. Since the primary platform in which the survey was posted is mainly used by students from the University of Sydney, most of the data collected were aged between 17 to 23 which does not represent the overall population. On top of this, there was also a limited number of people that had completed the survey (29 respondents), especially within the 2-week short span availability of the survey. Furthermore, there may have been distorted memories of the respondents as certain questions asked about memories from over a year ago (start of quarantine period), questions may have been misinterpreted, and subjective opinions may arise from questions asking the respondents to rate on a scale of 0 to 5, which could to statistical errors.
#Load our data
survey = read.csv("HobbiesCOVID19.csv")
# Remove the Timestamp column as it is not necessary for our report
survey$Timestamp <- NULL
# Quick look at the structure of data
str(survey)
## 'data.frame': 29 obs. of 9 variables:
## $ age : chr "17-23" "17-23" "17-23" "17-23" ...
## $ gender : chr "Male" "Female" "Female" "Female" ...
## $ covidhobbyno : int 2 1 0 6 2 3 6 0 4 3 ...
## $ covidhobbytype: chr "Cooking/baking, Learning Japanese" "Sports/exercise, Cooking/baking" "Literature, Music, Sports/exercise, Video games, Movies/TV shows" "Literature, Music, Sports/exercise, Arts, Video games, Movies/TV shows" ...
## $ reliance : int 3 4 0 4 3 2 3 5 4 2 ...
## $ continue : chr "Yes" "No" "Yes" "Yes" ...
## $ nowhobbyno : int 2 0 4 4 1 2 3 0 3 2 ...
## $ nowhobbytype : chr "Cooking/baking, Learning Japanese" "" "Literature, Sports/exercise, Video games" "Music, Sports/exercise, Video games, Movies/TV shows" ...
## $ discontinue : chr "" "Not enough time, Was not suitable for me/became bored" "Not enough time" "Not enough time, Bored" ...
# Quick look at top 5 rows of data
head(survey)
## age gender covidhobbyno
## 1 17-23 Male 2
## 2 17-23 Female 1
## 3 17-23 Female 0
## 4 17-23 Female 6
## 5 17-23 Male 2
## 6 17-23 Female 3
## covidhobbytype
## 1 Cooking/baking, Learning Japanese
## 2 Sports/exercise, Cooking/baking
## 3 Literature, Music, Sports/exercise, Video games, Movies/TV shows
## 4 Literature, Music, Sports/exercise, Arts, Video games, Movies/TV shows
## 5 Sports/exercise, Movies/TV shows
## 6 Music, Arts, Video games, Movies/TV shows
## reliance continue nowhobbyno
## 1 3 Yes 2
## 2 4 No 0
## 3 0 Yes 4
## 4 4 Yes 4
## 5 3 Yes 1
## 6 2 Yes 2
## nowhobbytype
## 1 Cooking/baking, Learning Japanese
## 2
## 3 Literature, Sports/exercise, Video games
## 4 Music, Sports/exercise, Video games, Movies/TV shows
## 5 Movies/TV shows
## 6 Music, Movies/TV shows
## discontinue
## 1
## 2 Not enough time, Was not suitable for me/became bored
## 3 Not enough time
## 4 Not enough time, Bored
## 5 Lack of motivation
## 6 Not enough time
# Our data has 29 rows and 9 columns
# Size of the data
dim(survey)
## [1] 29 9
# R's classification of survey's data
class(survey)
## [1] "data.frame"
# Number of hobbies picked up during quarantine
barplot(table(survey$covidhobbyno), main="Number of hobbies picked up during quarantine", xlab="Number of hobbies", ylab="Answers")
summary(survey$covidhobbyno)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 2.000 2.000 2.552 3.000 6.000
mean(survey$covidhobbyno)
## [1] 2.551724
#Number of hobbies now
barplot(table(survey$nowhobbyno), main="Number of hobbies now", xlab="Number of hobbies", ylab="Answers")
summary(survey$nowhobbyno)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 1.000 2.000 2.103 3.000 4.000
library(multicon)
## Loading required package: psych
## Loading required package: abind
## Loading required package: foreach
mean=c(mean(survey$covidhobbyno), mean(survey$nowhobbyno))
names= c("COVID", "Now")
se= c(popsd(survey$covidhobbyno)/sqrt(length(survey$covidhobbyno)), popsd(survey$nowhobbyno)/sqrt(length(survey$nowhobbyno)))
meanhobby = data.frame(names, mean, se)
library(ggplot2)
##
## Attaching package: 'ggplot2'
## The following objects are masked from 'package:psych':
##
## %+%, alpha
ggplot(meanhobby, aes(x=names, y=mean))+labs(title="Comparison between during quarantine and now")+geom_bar(stat='identity')+geom_errorbar( aes(x=names, ymin=mean-se, ymax=mean+se), width=0.2, colour="black", alpha=0.9, size=0.8)+theme(plot.title = element_text(size=16, face="bold.italic",hjust=0.5))
Summary:
From the above 2 graphs, it can be seen that most people had picked up 2 hobbies during the quarantine. This can also similarly be seen in the number of hobbies they have as of now. The average number of hobbies people have picked up during quarantine and currently highlight that there is no significant difference but a slight decrease. Although no definite conclusion can be made due to the limitation of the data size, this may have occurred as COVID-19 has settled now, and people have gone back to their normal lives before the pandemic.
covidhobbytypes=strsplit(survey$covidhobbytype, ", ")
covidhobbytypes=table(unlist(covidhobbytypes))
# Install packages ggplot2
library(ggplot2)
covidtypes = data.frame(covidhobbytypes)
names(covidtypes)[names(covidtypes) == "Var1"] <- "Hobbies"
names(covidtypes)[names(covidtypes) == "Freq"] <- "Answers"
p1 = ggplot(covidtypes, aes(x = Hobbies, y = Answers)) + geom_bar(stat = "identity")+ labs(title="Kind of hobbies people start during Covid?") + theme(
axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1),
plot.title = element_text(size=16, face="bold.italic",hjust=0.5) )
p1
nowhobbytypes=strsplit(survey$nowhobbytype, ", ")
nowhobbytypes=table(unlist(nowhobbytypes))
nowtypes = data.frame(nowhobbytypes)
names(nowtypes)[names(nowtypes) == "Var1"] <- "Hobbies"
names(nowtypes)[names(nowtypes) == "Freq"] <- "Answers"
p2 = ggplot(nowtypes, aes(x = Hobbies, y = Answers)) + geom_bar(stat = "identity")+ labs(title="Kind of hobbies people still do after quarantine") + theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1),
plot.title = element_text(size=16, face="bold.italic", hjust=0.5))
p2
Summary:
There are a wide range of hobbies people picked up during COVID. A study showed that media usage such as gaming and watching movies were more frequent during the peak of COVID, similar to the findings of our study (Krause 2021). Our data complies with this suggestion as it indicates that movies and gaming were two of the most picked hobbies during COVID; next to sports, music and baking. We observe a not very significant, but notable decrease in people playing video games after the quarantine, unlike the other hobbies. Though it is not conclusive, due to our data size, we can observe that when people went back to their regular lives they started to spend less time playing video games.
# Construct a scatter plot
library(ggplot2)
plot(survey$covidhobbyno, survey$reliance, xlab = "Number of hobbies", ylab = "Reliance")
# Calculate the linear regression model to draw on the scatter plot
L = lm(survey$covidhobbyno ~ survey$reliance)
summary(L)
##
## Call:
## lm(formula = survey$covidhobbyno ~ survey$reliance)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.9785 -0.7450 -0.2779 0.7221 3.4885
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.8109 0.7267 2.492 0.0191 *
## survey$reliance 0.2335 0.2122 1.100 0.2809
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.473 on 27 degrees of freedom
## Multiple R-squared: 0.04291, Adjusted R-squared: 0.007466
## F-statistic: 1.211 on 1 and 27 DF, p-value: 0.2809
L$coeff
## (Intercept) survey$reliance
## 1.8108883 0.2335244
abline(L)
g <- ggplot(survey, aes(x=survey$covidhobbyno, y=survey$reliance))
g + xlab("Number of hobbies") + ylab("Reliance")
## Warning: Use of `survey$covidhobbyno` is discouraged. Use `covidhobbyno`
## instead.
## Warning: Use of `survey$reliance` is discouraged. Use `reliance` instead.
g + geom_point() + geom_smooth(method="lm")
## Warning: Use of `survey$covidhobbyno` is discouraged. Use `covidhobbyno`
## instead.
## Warning: Use of `survey$reliance` is discouraged. Use `reliance` instead.
## Warning: Use of `survey$covidhobbyno` is discouraged. Use `covidhobbyno`
## instead.
## Warning: Use of `survey$reliance` is discouraged. Use `reliance` instead.
## `geom_smooth()` using formula 'y ~ x'
# Caluculate the linear correlation coefficient
cor(survey$covidhobbyno, survey$reliance)
## [1] 0.2071563
#residual
plot(survey$covidhobbyno,L$residuals, xlab = "Number of hobbies", ylab = "Reliance")
abline(h = 0, col = "blue")
Summary:
A study highlighted that hobbies can be a coping strategy and it is also beneficial for our mental and physical health (Merschel, 2020). We investigated the relationship between the number of hobbies people picked up to how much they relied on their hobbies as a coping mechanism to see whether the reliance on their hobbies affected the number of hobbies picked. However the residual plot of our data showed a clear linear pattern. This might’ve been caused because we chose a variable that was not very continuous. But even the result of our scatter plot and correlation gave a very low relation between reliance and number of hobbies (r=0.207), suggesting that there is no significant relation between reliance and the number of hobbies picked during COVID.
APA: